﻿Namespace Empleados
    Public Class Capataz
        Inherits Empleado

        Sub New()
            _empleados = New List(Of Empleado)
        End Sub

        Private _empleados As List(Of Empleado)
        Public Property Empleados() As List(Of Empleado)
            Get
                Return _empleados
            End Get
            Set(ByVal value As List(Of Empleado))
                _empleados = value
            End Set
        End Property


        Public Overrides Function CalcularSueldo() As Double
            Dim resultado As Double
            For Each Empleado In Empleados
                resultado += Empleado.CalcularSueldo() * 10 / 100
            Next
            Return resultado
        End Function
    End Class

End Namespace